Filename: /text/sbasic/shared/03010303.xhp

Red Function [Runtime]
Red 関数 [実行時](hd_id3148947.1)

Returns the Red component of the specified color code.
与えられたカラーコードの赤色 (Red) のコンポーネントを返します。(par_id3149656.2)

Syntax:
構文:(hd_id3148799.3)

Red (ColorNumber As Long)
Red (ColorNumber As Long)(par_id3150448.4)

Return value:
戻り値:(hd_id3151042.5)

Integer
整数(par_id3145173.6)

Parameter:
パラメータ:(hd_id3154685.7)

ColorNumber: Long integer expression that specifies any color code for which to return the Red component.
ColorNumber:任意のカラーコードを指定するロング整数の表式で、該当する色の赤色 (Red) のコンポーネントが返されます。(par_id3150440.8)

Example:
例:(hd_id3148575.9)

Sub ExampleColor
Sub ExampleColor(par_id3145365.10)

Dim lVar As Long
Dim lVar As Long(par_id3147348.11)

lVar = rgb(128,0,200)
lVar = rgb(128,0,200)(par_id3145750.12)

msgbox "The color " & lVar & " consists of:" & Chr(13) &_
msgbox "The color " & lVar & " consists of:" & Chr(13) &_(par_id3147435.13)

"red= " & red(lVar) & Chr(13)&_
"red= " & red(lVar) & Chr(13)&_(par_id3155306.14)

"green= " & green(lVar) & Chr(13)&_
"green= " & green(lVar) & Chr(13)&_(par_id3149262.15)

"blue= " & blue(lVar) & Chr(13) , 64,"colors"
"blue= " & blue(lVar) & Chr(13) , 64,"colors"(par_id3147397.16)

end sub
end sub(par_id3156286.17)